﻿

Public Class cSmartScripts
    Public _arr As ArrayList

    Public Sub New(conn As MySQL, entryorguid As UInt32)
        If IsNothing(conn) Then Throw New ArgumentNullException("cSmartScript: conn is nothing")
        Dim sql As String = "SELECT * FROM smart_scripts WHERE entryorguid=" & entryorguid & ";"
        _arr = conn.ReadRows(sql)
    End Sub
    Public ReadOnly Property Count As UInt32
        Get
            Return _arr.Count
        End Get
    End Property
    Public Property Item(Index As UInt32) As SortedList(Of String, sMysqlItem)
        Get
            Return _arr.Item(Index)
        End Get
        Set(value As SortedList(Of String, sMysqlItem))
            Stop
        End Set
    End Property


End Class
